home *** CD-ROM | disk | FTP | other *** search
/ SGI Developer Toolbox 6.1 / SGI Developer Toolbox 6.1 - Disc 4.iso / src / swtools / trubasic / rolldemos / demos / sci / spline.tru < prev    next >
Encoding:
Text File  |  1994-08-02  |  320 b   |  16 lines
  1. !
  2. !  SPLINE.  Spline curve through random points.
  3. !
  4. LIBRARY "sglib.trc"
  5. call tw_wset_title(0,"spline")
  6. DIM x(10), y(10)
  7. FOR i = 1 to 10
  8.     LET x(i) = i
  9.     LET y(i) = Rnd
  10. NEXT i
  11. CALL SetTitle("Spline Curve-Fitting")
  12. CALL DataGraph(x,y,2,0,"yellow yellow white")
  13. CALL AddSplineGraph(x,y,1,"cyan")
  14. get point tmp,tmp2
  15. END
  16.